home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Windows Selection / Windows Selection 1.iso / Help Files Tools / MakHlp / EXEMPLE / VBASIC / FEUILLE1.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1995-08-23  |  3.9 KB  |  131 lines
  1. VERSION 2.00
  2. Begin Form Feuille1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Feuille1"
  5.    ClientHeight    =   6015
  6.    ClientLeft      =   1290
  7.    ClientTop       =   765
  8.    ClientWidth     =   7665
  9.    ClipControls    =   0   'False
  10.    Height          =   6735
  11.    Left            =   1215
  12.    LinkTopic       =   "Feuille1"
  13.    ScaleHeight     =   6015
  14.    ScaleWidth      =   7665
  15.    Top             =   120
  16.    Width           =   7815
  17.    Begin CommandButton Commande3 
  18.       Caption         =   "Quitter"
  19.       Height          =   645
  20.       Left            =   2880
  21.       TabIndex        =   3
  22.       Top             =   4980
  23.       Width           =   2055
  24.    End
  25.    Begin CommandButton Commande2 
  26.       Caption         =   "Bouton2"
  27.       Height          =   645
  28.       HelpContextID   =   2
  29.       Left            =   5190
  30.       TabIndex        =   1
  31.       Top             =   4200
  32.       Width           =   2055
  33.    End
  34.    Begin CommandButton Commande1 
  35.       Caption         =   "Bouton1"
  36.       Height          =   645
  37.       HelpContextID   =   1
  38.       Left            =   510
  39.       TabIndex        =   0
  40.       Top             =   4290
  41.       Width           =   2055
  42.    End
  43.    Begin Label Etiquette1 
  44.       BackColor       =   &H00800080&
  45.       Caption         =   "Le ""HelpContextID"" de cette feuille = 0  Le ""HelpContextID"" du Bouton1 = 1   Le ""HelpContextID"" du Bouton2 = 2   Le ""HelpContextID"" du Quitter = 0"
  46.       FontBold        =   -1  'True
  47.       FontItalic      =   0   'False
  48.       FontName        =   "MS Sans Serif"
  49.       FontSize        =   13.5
  50.       FontStrikethru  =   0   'False
  51.       FontUnderline   =   0   'False
  52.       ForeColor       =   &H0000FFFF&
  53.       Height          =   1545
  54.       Index           =   1
  55.       Left            =   1110
  56.       TabIndex        =   4
  57.       Top             =   2190
  58.       Width           =   5505
  59.    End
  60.    Begin Label Etiquette1 
  61.       Alignment       =   2  'Centr
  62.       BackColor       =   &H00FF0000&
  63.       BorderStyle     =   1  'Trait simple fixe
  64.       Caption         =   "D
  65. monstration de r
  66. alisation d'un fichier d'aide (.HLP)  pour un projet Visual Basic"
  67.       FontBold        =   -1  'True
  68.       FontItalic      =   0   'False
  69.       FontName        =   "MS Sans Serif"
  70.       FontSize        =   24
  71.       FontStrikethru  =   0   'False
  72.       FontUnderline   =   0   'False
  73.       ForeColor       =   &H00FFFF00&
  74.       Height          =   1755
  75.       Index           =   0
  76.       Left            =   510
  77.       TabIndex        =   2
  78.       Top             =   240
  79.       Width           =   6765
  80.    End
  81.    Begin Menu Menu 
  82.       Caption         =   "Menu"
  83.       Begin Menu SousMenu 
  84.          Caption         =   "Bouton 1"
  85.          HelpContextID   =   1
  86.          Index           =   0
  87.       End
  88.       Begin Menu SousMenu 
  89.          Caption         =   "Bouton 2"
  90.          HelpContextID   =   2
  91.          Index           =   1
  92.       End
  93.       Begin Menu SousMenu 
  94.          Caption         =   "-"
  95.          Index           =   2
  96.       End
  97.       Begin Menu SousMenu 
  98.          Caption         =   "Quitter"
  99.          Index           =   3
  100.       End
  101.    End
  102. Option Explicit
  103. Dim Msg$, LN$
  104. Sub Commande2_CLick ()
  105.   Feuille2.Show 1
  106. End Sub
  107. Sub Commande3_CLick ()
  108.   End
  109. End Sub
  110. Sub Form_Load ()
  111.   LN = Chr$(10)
  112.   Msg = "D
  113. monstration de r
  114. alisation d'un fichier d'aide (.HLP)" & LN
  115.   Msg = Msg & "pour un projet Visual Basic"
  116.   Etiquette1(0).Caption = Msg
  117.   Msg = "Le ""HelpContextID"" de cette feuille = 0" & LN
  118.   Msg = Msg & "Le ""HelpContextID"" du Bouton1 = 1" & LN
  119.   Msg = Msg & "Le ""HelpContextID"" du Bouton2 = 2" & LN
  120.   Msg = Msg & "Le ""HelpContextID"" du Quitter = 0"
  121.   Etiquette1(1).Caption = Msg
  122. End Sub
  123. Sub SousMenu_Click (Index As Integer)
  124.   Select Case Index
  125.     Case 1
  126.       Commande2_CLick
  127.     Case 3
  128.       Commande3_CLick
  129.   End Select
  130. End Sub
  131.